home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / cafe / ultslots.dir / 00189.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  151 b   |  12 lines
  1. on closedPlant
  2.   set x to random(3)
  3.   case x of
  4.     1:
  5.       go("PLANT2")
  6.     2:
  7.       go("PLANT3")
  8.     3:
  9.       go("PLANT3-Let's See")
  10.   end case
  11. end
  12.